home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 003 / pay1pers.arc / W2FORM.PRG < prev    next >
Encoding:
Text File  |  1987-01-15  |  838 b   |  42 lines
  1. *** W2FORM.PRG (procedure to print w2's)
  2. *** v. 2.6 01/15/87
  3. *** Copyright @ 1987, Martin J. Michaelson
  4. CLEAR
  5. CLEAR ALL
  6. SET BELL OFF
  7. SET TALK OFF
  8. SELECT 1
  9. USE PAY_PERS INDEX EMPNO
  10. GO TOP
  11. SELECT 3
  12. USE PAY_YTD INDEX EMPNMYTD
  13. SET RELATION TO EMP_NMBR INTO PAY_PERS
  14. DO WHILE .NOT. EOF()
  15. SET PRINT ON
  16. ?
  17. ? "    "+STR(A->EMP_NMBR,3)
  18. ?
  19. ? "      your company name., inc."+"          "
  20. ?? "xx-xxxxxxx"
  21. ? "      your company address  "
  22. ? "      your company cty,st,zip"
  23. ?
  24. ?
  25. ?
  26. ? "     "+A->SS_NMBR+"        "+STR(C->FWT_YTD,8,2)+"ì
  27. "+STR(C->GRO_YTD,9,2)+SPACE(11)+STR(C->FCIA_YTD,7,2)
  28. ?
  29. ? "     "+A->NAME+"           "+STR(C->GRO_YTD,8,2)
  30. ?
  31. ? "     "+A->ADDRESS
  32. ? "     "+A->CITY_ST+A->ZIP
  33. ? SPACE(40)+STR(C->SWT_YTD,7,2)+SPACE(15)+"NEW YORK"
  34. ?
  35. ? SPACE(40)+STR(C->CWT_YTD,7,2)
  36. ?
  37. ?
  38. ?
  39. ?
  40. SKIP
  41. SET PRINT OFF
  42. ENDDO